<WebMethod()> Public Function TaxRate(ByVal txCity As String,
                         ByVal txState As String) As Double
    If txCity = "" Then
        TaxRate = -98
        Exit Function
    End If
    If txState = "" Then
        TaxRate = -99
        Exit Function
    End If
    Dim TaxRateTbl As New DataSet1()
    SqlDataAdapter1.SelectCommand.Parameters("@City").Value = txCity
    SqlDataAdapter1.SelectCommand.Parameters("@State").Value = txState
    TaxRateTbl.Clear()
    SqlDataAdapter1.Fill(TaxRateTbl)
    If TaxRateTbl.TaxRates.Count = 0 Then
        TaxRate = -91
        Exit Function
    End If
    TaxRate = TaxRateTbl.TaxRates.Item(0).TaxRate
End Function
